home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aat.d64 / boxing (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  13KB  |  417 lines
  1. 2 POKE53280,1:POKE53281,1
  2. 5 PRINT"[147]"
  3. 6 PRINT"THE CHALLENGER"
  4. 7 PRINT"[156]BY TRAP PASS"
  5. 8 PRINT"1986"
  6. 9 PRINT"SANS DOMINIUM USIT"
  7. 10 REMTHE CHALLENGER
  8. 11 FORZ=1TO5000:NEXT
  9. 15 DIMA%(20,20),A$(20),P$(20)
  10. 17 GOSUB25000
  11. 20 POKE53280,0:POKE53281,7:PRINT"[144]":PRINT"[147]"
  12. 30 PRINT""
  13. 35 PRINT"";:
  14. 40 INPUT"10 OR 15 ROUND BOUT";B$
  15. 50 B=VAL(B$)
  16. 60 IFB<>10ANDB<>15THEN35
  17. 70 PRINT"[147]THE CHALLENGERS[156]"
  18. 80 PRINT
  19. 100 PRINT"1. BRUISER BROWN":PRINT"2. MOXIE MASON"
  20. 110 PRINT"3. CANNON CURTIS":PRINT"4. HITMAN HALL[144]"
  21. 115 PRINT"";
  22. 120 INPUT"SELECT 1-4";C$
  23. 130 C=VAL(C$)
  24. 140 IFC<1ORC>4THEN115
  25. 145 FORZ=1TO2000:NEXT:PRINT"[147]"
  26. 150 PRINT"YOU SELECTED CHALLENGER #";C
  27. 160 FORX=1TO10:READBB(X),MM(X),CC(X),HH(X):NEXT
  28. 170 FORX=1TO4:READC$(X):NEXT
  29. 175 FORX=1TO9:READCH(X):NEXT
  30. 177 READCH$
  31. 180 PRINT"[156]";C$(C)
  32. 185 FORX=1TO2000:NEXT:PRINT"[147]"
  33. 190 PRINT"[156]";C$(C)"'S STATISTICS:"
  34. 195 PRINT:PRINTSPC(7)"RANKING:"
  35. 200 PRINTSPC(7)"AGE:":PRINTSPC(7)"HEIGHT:":PRINTSPC(7)"REACH:"
  36. 205 PRINTSPC(7)"WEIGHT:":PRINTSPC(7)"HANDSPEED:":PRINTSPC(7)"FOOTWORK:"
  37. 210 PRINTSPC(7)"STAMINA:":PRINTSPC(7)"POWER:":PRINTSPC(7)"ATTITUDE:"
  38. 220 ONCGOSUB600,610,620,630
  39. 300 FORX=1TO2000:NEXT
  40. 310 PRINT"[144]SELECT TRAINING PROGRAM Y/N";A$
  41. 320 GETA$
  42. 325 IFA$=""THEN320
  43. 330 IFA$<>"Y"THEN570
  44. 340 PRINT"[147]WEEK NO. 1: HANDSPEED TRAINING"
  45. 342 FORX=1TO2000:NEXT:PRINT
  46. 345 PRINT"[156]";C$(C)"'S PRIOR HANDSPEED WAS";TC(6)
  47. 350 GOSUB850
  48. 360 IFR>3THENTC(6)=TC(6)+1
  49. 370 PRINT"[156]";C$(C)"'S NEW HANDSPEED IS";TC(6)
  50. 375 FORX=1TO2000:NEXT:PRINT
  51. 380 PRINT"[147][144]WEEK NO. 2: FOOTWORK TRAINING"
  52. 385 FORX=1TO2000:NEXT:PRINT
  53. 390 PRINT"[156]";C$(C)"'S PRIOR FOOTWORK WAS";TC(7)
  54. 395 GOSUB850
  55. 400 IFR>3THENTC(7)=TC(7)+1
  56. 410 PRINT"[156]";C$(C)"'S NEW FOOTWORK IS";TC(7)
  57. 415 FORX=1TO2000:NEXT:PRINT
  58. 420 PRINT"[147][144]WEEK NO. 3: STAMINA TRAINING"
  59. 425 FORX=1TO2000:NEXT:PRINT
  60. 430 PRINT"[156]";C$(C)"'S PRIOR STAMINA WAS";TC(8)
  61. 440 GOSUB850
  62. 450 IFR>3THENTC(8)=TC(8)+1
  63. 460 PRINT"[156]";C$(C)"'S NEW STAMINA IS";TC(8)
  64. 465 FORX=1TO2000:NEXT:PRINT
  65. 470 PRINT"[147][144]WEEK NO. 4: POWER TRAINING"
  66. 475 FORX=1TO2000:NEXT:PRINT
  67. 480 PRINT"[156]";C$(C)"'S PRIOR POWER WAS";TC(9)
  68. 490 GOSUB850
  69. 500 IFR>3THENTC(9)=TC(9)+1
  70. 510 PRINT"[156]";C$(C)"'S NEW POWER IS";TC(9)
  71. 515 FORX=1TO2000:NEXT:PRINT
  72. 520 PRINT"[147][144]WEEK NO. 5: WEIGHT TRAINING"
  73. 525 FORX=1TO2000:NEXT:PRINT
  74. 530 PRINT"[156]";C$(C)"'S PRIOR WEIGHT WAS";TC(5)
  75. 540 GOSUB850
  76. 550 IFR>3THENTC(5)=TC(5)+6
  77. 555 IFR<3THENTC(5)=TC(5)-6
  78. 560 PRINT"[156]";C$(C)"'S NEW WEIGHT IS";TC(5)
  79. 565 FORX=1TO2000:NEXT:PRINT"[147]"
  80. 570 FORX=1TO10:CN=CN+TC(X):NEXT
  81. 572 FORX=1TO10:CC=CC+CH(X):NEXT
  82. 574 PRINT"[147]CHALLENGER'S CONDITION IS";CN
  83. 575 PRINT"CHAMPION'S CONDITION IS";CC
  84. 577 FORX=1TO2000:NEXT:PRINT"[156][147]"
  85. 580 GOTO700
  86. 600 PRINT"[145][145][145][145][145][145][145][145][145][145][145]":FORX=1TO10:PRINTTAB(20)BB(X):NEXT
  87. 605 FORX=1TO10:TC(X)=BB(X):NEXT:RETURN
  88. 610 PRINT"[145][145][145][145][145][145][145][145][145][145][145]":FORX=1TO10:PRINTTAB(20)MM(X):NEXT
  89. 615 FORX=1TO10:TC(X)=MM(X):NEXT:RETURN
  90. 620 PRINT"[145][145][145][145][145][145][145][145][145][145][145]":FORX=1TO10:PRINTTAB(20)CC(X):NEXT
  91. 625 FORX=1TO10:TC(X)=CC(X):NEXT:RETURN
  92. 630 PRINT"[145][145][145][145][145][145][145][145][145][145][145]":FORX=1TO10:PRINTTAB(20)HH(X):NEXT
  93. 635 FORX=1TO10:TC(X)=HH(X):NEXT:RETURN
  94. 700 FORX=1TO20:READA$(X):NEXT
  95. 710 FORR=1TO20
  96. 720 FORE=1TO20
  97. 730 READA%(R,E)
  98. 740 NEXTE
  99. 750 NEXTR
  100. 757 FORX=1TO20:READP$(X):NEXT
  101. 758 FORX=1TO10:READF$(X):NEXT
  102. 759 FORX=1TO10:READT$(X):NEXT
  103. 760 GOSUB800
  104. 765 PRINT"";:INPUT"WANNA FIGHT (Y/N)";AN$
  105. 766 IFAN$=""THEN765
  106. 767 IFAN$<>"Y"THENPRINT"CHICKEN[146]":END
  107. 770 GOTO900
  108. 800 PRINT"[147]":PRINT"THE CHAMP - ";CH$
  109. 810 PRINT:PRINTTAB(10)"AGE:":PRINTTAB(10)"HEIGHT:":PRINTTAB(10)"REACH:"
  110. 812 PRINTTAB(10)"WEIGHT:":PRINTTAB(10)"HANDSPEED:"
  111. 814 PRINTTAB(10)"FOOTWORK:":PRINTTAB(10)"STAMINA:":PRINTTAB(10)"POWER:"
  112. 820 PRINTTAB(10)"ATTITUDE:"
  113. 840 PRINT"":FORX=1TO9:PRINTTAB(25)CH(X):NEXT:RETURN
  114. 850 R=INT(RND(0)*10)+1:PRINT"[144]":RETURN
  115. 900 BD=53280:SC=53281:POKEBD,1:E=0:CK=0:RK=0:FT=INT(TI/60)
  116. 910 PRINT"[147]":RD=RD+1
  117. 911 IFAL>RLTHENPR=PR+1
  118. 912 IFAL<RLTHENCR=CR+1
  119. 913 IFJ1>J2THENT1=T1+1
  120. 914 IFJ2>J1THENT2=T2+1
  121. 916 IFJ3>J4THENC1=C1+1
  122. 917 IFJ4>J3THENC2=C2+1
  123. 918 IFRD>BTHENGOSUB10000
  124. 919 AL=0:RL=0:J1=0:J2=0:J3=0:J4=0
  125. 920 PRINT"[156]":PRINTC$(C)" HAS THROWN";PT;"PUNCHES"
  126. 930 PRINT"AND LANDED";PL
  127. 940 PRINT"":PRINTCH$" HAS THROWN";CT;"PUNCHES"
  128. 950 PRINT"AND LANDED";CL
  129. 952 PRINT:PRINT"[156]":PRINTC$(C)"'S CONDITION:";CN
  130. 953 PRINT:PRINT"":PRINTCH$"'S CONDITION:";CC
  131. 955 PRINT"[156]CORNER ADVICE FOR ROUND";RD;"[144]"
  132. 960 IFRD=1THENPRINT"FEEL HIM OUT THIS ROUND...USE THE JAB!"
  133. 970 IFRD>1THENGOSUB5000
  134. 980 FORZ=1TO8000:NEXT:PRINT"[147]"
  135. 985 GOSUB20000
  136. 990 PRINT"ROUND";RD:FORX=1TO2000:NEXT:TI$="000000"
  137. 995 K1=0:K2=0:KO=INT(RND(0)*(20-13+1))+13
  138. 1040 IFRL=>ALTHENY=INT(RND(0)*(20-11+1))+11
  139. 1050 IFRL<ALTHENY=INT(RND(0)*10)+1
  140. 1055 IFTI>002500THENY=INT(RND(0)*(20-11+1))+11
  141. 1060 IFTI>000300THENY=INT(RND(0)*20)+1
  142. 1062 PRINT"[147]"
  143. 1065 GOSUB7000
  144. 1070 T=INT(RND(0)*10)+1
  145. 1075 F=INT(RND(0)*10)+1
  146. 1080 IFT=>5ANDX=>11THENPL=PL+1:AL=AL+1
  147. 1090 IFF=>5ANDY=>11THENCL=CL+1:RL=RL+1
  148. 1091 IFT<5ANDX=>11ANDY=<10THENA%(Y,X)=-1
  149. 1092 IFT>5ANDX=>11ANDF>5ANDY=>11THENA%(X,Y)=-3
  150. 1093 IFF<5ANDY=>11ANDX=<10THENA%(X,Y)=-1
  151. 1094 IFF>5ANDY=>11ANDT>5ANDX=>11THENA%(Y,X)=-3
  152. 1095 IFT<5ANDX=>11ANDF<5ANDY>11THENA%(Y,X)=-2
  153. 1096 IFF<5ANDY=>11ANDT<5ANDX>11THENA%(X,Y)=-2
  154. 1097 CN=CN+A%(X,Y)-C+1
  155. 1098 CC=CC+A%(Y,X)
  156. 1100 IFX=>11THENPT=PT+1:J2=J2+1
  157. 1110 IFY=>11THENCT=CT+1:J1=J1+1
  158. 1112 IFTI>3525ANDPT>50THENCN=CN-10
  159. 1114 IFTI>3525ANDCT>40THENCC=CC-10
  160. 1115 FORZ=1TO2000:PRINT"[147]"
  161. 1117 IFX=KOANDT=>5ANDY=8THENK1=1:CC=CC-50:A%(Y,X)=-50
  162. 1118 IFY=KOANDF=>5ANDX=8THENK2=1:CN=CN-50:A%(X,Y)=-50-C+1
  163. 1120 PRINT"[156]";C$(C);" ";A$(X);" ";A%(X,Y)-C+1
  164. 1122 IFF=>5ANDY=>11THENPOKESC,2:POKESC,7:GOSUB30000
  165. 1125 IFT=>5ANDX=>11THENPRINTT$(T):GOSUB40000
  166. 1127 IFT<5ANDX=>11THENPRINTT$(T)
  167. 1130 PRINT:PRINT"";CH$;" ";A$(Y);" ";A%(Y,X)
  168. 1131 IFF=>5ANDY=>11THENPRINTF$(F)
  169. 1132 IFF<5ANDY=>11THENPRINTF$(F)
  170. 1133 IFX=9ORY=9THENPRINT"BREAK!"
  171. 1134 PRINT"[156]";C$(C);AL;" OF";J2;CN:PRINT"";CH$;RL;" OF";J1;CC
  172. 1135 IFK1=1THENGOSUB9050
  173. 1136 IFK2=1THENGOSUB11000
  174. 1137 FORZ=1TO3000:NEXT:PRINT"[147][144]"
  175. 1138 IFCC<300ANDRK=0THENGOSUB9000:RK=RK+1
  176. 1139 IFCC<275ANDT=>5ANDX=>12ANDK1=0THENGOSUB9050
  177. 1140 IFCN<275ANDF=>5ANDY=>12ANDK2=0THENGOSUB11000
  178. 1142 IFCN<400ANDPEEK(BD)=241THENPOKEBD,15
  179. 1144 IFCN<375ANDPEEK(BD)=255THENPOKEBD,12
  180. 1146 IFCN<350ANDPEEK(BD)=252THENPOKEBD,11
  181. 1147 IFCN<325ANDCK=0THENGOSUB8000:CK=CK+1
  182. 1148 IFCN<300ANDPEEK(BD)=251THENPOKEBD,0
  183. 1150 IFCK=0ANDRD=7ANDPT<25THENGOSUB14000
  184. 1160 IFRD=9ANDPT<35THENGOSUB15000
  185. 1170 IFTI>003550THENJ3=CC:J4=CN
  186. 1175 IFTI>003599THENGOSUB20000
  187. 1180 IFTI>003600THENGOTO910
  188. 1185 IFCN=0THENGOTO15000
  189. 1187 IFCC=0THENGOTO12000
  190. 1190 GOTO995
  191. 2000 DATA1,2,3,4,24,27,22,30
  192. 2010 DATA74,76,73,75,72,73,72,73,207,210,200,223
  193. 2020 DATA8,7,8,7,6,7,7,6,6,7,8,5
  194. 2030 DATA8,9,8,9,4,5,3,4
  195. 2040 DATABRUISER BROWN,MOXIE MASON,CANNON CURTIS,HITMAN HALL
  196. 3000 DATA27,76,78,215,9,9,9,9,5
  197. 3010 DATAROCKY DAGAMBA
  198. 3500 DATADANCES LEFT,DANCES RIGHT,BLOCKS LEFT
  199. 3505 DATABLOCKS RIGHT,FEINTS LEFT,FEINTS RIGHT
  200. 3510 DATABACKPEDALS,MOVES IN,TIES-UP,COVERS UP,FIRES LEFT JAB,THROWS RIGHT JAB
  201. 3520 DATAZINGS LEFT HOOK,SNAPS RIGHT HOOK,RAMS LEFT UPPERCUT
  202. 3530 DATASLAMS RIGHT UPPERCUT,THROWS LEFT CROSS,FIRES RIGHT CROSS
  203. 3540 DATASNAPS STRAIGHT LEFT,RAMS STRAIGHT RIGHT
  204. 3550 DATA-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-2,-2,-10,-2,-3,-2,-3,-2,-3
  205. 3560 DATA-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-2,-2,-10,-2,-3,-2,-3,-2,-3,-2
  206. 3570 DATA-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-2,-1,-2,-1,-2,-1,-10,-1,-2,-1
  207. 3580 DATA-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-2,-1,-2,-1,-2,-1,-10,-1,-2
  208. 3590 DATA-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-2,-2,-3,-2,-10,-2,-3,-2,-3
  209. 3600 DATA-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-2,-1,-3,-2,-10,-2,-3,-2,-3,-2
  210. 3610 DATA0,0,0,0,0,0,0,-5,-1,5,-3,-3,-3,-3,-3,-3,-3,-3,-3,-3
  211. 3620 DATA1,1,1,1,1,1,1,1,1,1,-2,-2,-3,-3,-3,-3,-3,-3,-25,-50
  212. 3630 DATA-1,-1,-1,-1,-1,-1,-1,-1,5,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
  213. 3640 DATA-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-2,-2,-2,-2,-2,-2,-2,-2,-2,-2
  214. 3650 DATA-2,-1,-1,-2,-2,-1,-1,-1,-1,-1,-2,-1,-2,-1,-2,-1,-2,-1,-2,-1
  215. 3660 DATA-1,-2,-2,-1,-1,-2,-1,-1,-1,-1,-1,-2,-1,-2,-1,-2,-1,-2,-1,-2
  216. 3670 DATA-3,-2,-2,-3,-3,-2,-1,-1,-2,-2,-2,-1,-2,-1,-2,-1,-2,-1,-2,-1
  217. 3680 DATA-2,-3,-3,-2,-2,-3,-1,-1,-2,-2,-1,-2,-1,-2,-1,-2,-1,-2,-1,-2
  218. 3690 DATA-3,-2,-2,-3,-3,-2,-1,-1,-2,-2,-2,-1,-2,-1,-2,-1,-2,-1,-2,-1
  219. 3700 DATA-2,-3,-3,-2,-2,-3,-1,-1,-2,-2,-1,-2,-1,-2,-1,-2,-1,-2,-1,-2
  220. 3710 DATA-3,-2,-2,-3,-3,-2,-1,-1,-2,-2,-2,-1,-2,-1,-2,-1,-2,-1,-2,-1
  221. 3720 DATA-2,-3,-3,-2,-2,-3,-1,-1,-2,-2,-1,-2,-1,-2,-1,-2,-1,-2,-1,-2
  222. 3730 DATA-3,-2,-2,-3,-3,-2,-1,-1,-2,-2,-2,-1,-2,-1,-2,-1,-2,-1,-2,-1
  223. 3740 DATA-2,-3,-3,-2,-2,-3,-1,-1,-2,-2,-1,-2,-1,-2,-1,-2,-1,-2,-1,-2
  224. 3745 DATADANCE LEFT,DANCE RIGHT,BLOCK LEFT,BLOCK RIGHT,FEINT LEFT,FEINT RIGHT
  225. 3747 DATABACKPEDAL,MOVE IN,TIE-UP,COVER UP
  226. 3750 DATALEFT JAB,RIGHT JAB,LEFT HOOK,RIGHT HOOK,LEFT UPPERCUT,RIGHT UPPERCUT
  227. 3760 DATALEFT CROSS,RIGHT CROSS,STRAIGHT LEFT,STRAIGHT RIGHT
  228. 3765 DATAMISSES!,DOESN'T LAND!,HE DUCKS IT!,OFF TARGET!,IT LANDS!,IT CONNECTS!
  229. 3770 DATAA RIFLE SHOT!,DAMAGING PUNCH!,FINDS THE MARK!,A HEADSNAPPER!
  230. 3775 DATAJUST MISSES!,WIDE OF THE MARK!,HE DODGES IT!,FALLS SHORT!
  231. 3780 DATAIN THE LABONZA!,NASTY PUNCH!,A SOLID BLOW!,A BELLRINGER!,IT HAD EYES!
  232. 3785 DATACRISP SHOT!
  233. 4500 STOP
  234. 5000 IFPR>CRTHENPRINT"YOU'RE TAKIN' IT TO HIM-JAB & MOVE!"
  235. 5010 IFPR<CRTHENPRINT"HE'S AHEAD...STICK HIM!"
  236. 5020 IFPR=CRTHENPRINT"YOU'RE NECK & NECK...STAY WITH HIM!"
  237. 5030 IFCN>CCTHENPRINT"PUNCH HIS LIGHTS OUT!"
  238. 5040 IFCN<CCTHENPRINT"EXCHANGE YOUR PUNCHES-TRY TO TIE HIM UP!"
  239. 5050 RETURN
  240. 7000 D=0:PRINT"":FORD=1TOY
  241. 7002 PRINT"";
  242. 7004 NEXTD
  243. 7005 PRINT"[145]";TAB(32)"_[144]"
  244. 7010 PRINT"":FORX=1TO20:PRINTX,P$(X)
  245. 7020 NEXT
  246. 7025 IFY=8THENPRINT"[156]USE YOUR ";P$(KO);"![144]"
  247. 7030 INPUT"ACTION";X$
  248. 7040 X=VAL(X$)
  249. 7050 IFX<1ORX>20THEN7030
  250. 7060 RETURN
  251. 8000 PRINTC$(C);"'S WOBBLING!":FORZ=1TO2000:NEXT:PRINT"[147]":CK=CK+1:RETURN
  252. 9000 PRINT"[147]THE CHAMP IS IN TROUBLE, HE LOOKS TIRED!":RK=RK+1
  253. 9010 FORZ=1TO2000:NEXT:PRINT"[147]":RETURN
  254. 9050 PRINT"THE CHAMP IS DOWN!"
  255. 9055 IFX>12ANDT=>5THEN PRINT"[144]A STAGGERING ";P$(X)
  256. 9056 FT=INT(TI/60)
  257. 9057 PRINT"AT";FT"SECONDS OF ROUND";RD
  258. 9060 IFX=13ORX=15ANDT=>5THENPRINT"IT'S ALL OVER - THE CHAMP IS KAYOED!":END
  259. 9065 PRINT"HE TAKES THE MANDATORY 8 COUNT[144]":FORZ=1TO3000:NEXT:PRINT"[147]"
  260. 9066 RK=RK+1:IFRK=4ANDX>12THENGOTO12000
  261. 9067 FORZ=1TO2000:NEXT
  262. 9070 RETURN
  263. 10000 PRINT"REFEREE MIKE ORTIZ SCORES IT--[144]"
  264. 10005 PRINTC$(C)" WON ";PR; "ROUNDS AND LOST";CR
  265. 10010 PRINTCH$" WON ";CR; "ROUNDS AND LOST";PR:IFCR+PR=BTHENE=0
  266. 10011 IFCR+PR<BTHENE=B-(CR+PR)
  267. 10015 PRINT"THERE WERE ";E;"ROUNDS EVEN"
  268. 10017 PRINT"JUDGE SAM RICHARDS SCORES IT--[144]"
  269. 10019 PRINTC$(C)" WON ";T2; "ROUNDS AND LOST";T1
  270. 10020 PRINTCH$" WON ";T1; "ROUNDS AND LOST";T2:IFT1+T2=BTHENE=0
  271. 10021 IFT1+T2<BTHENE=B-(T1+T2)
  272. 10022 PRINT"THERE WERE ";E;"ROUNDS EVEN"
  273. 10023 PRINT"JUDGE ZEKE BARROW HAS IT--[144]"
  274. 10024 PRINTC$(C)" WON ";C2; "ROUNDS AND LOST";C1
  275. 10025 PRINTCH$" WON ";C1; "ROUNDS AND LOST";C2:IFC1+C2=BTHENE=0
  276. 10026 IFC1+C2<BTHENE=B-(C1+C2)
  277. 10027 PRINT"THERE WERE ";E;"ROUNDS EVEN"
  278. 10028 IFC1>C2ANDT1>T2ANDCR>PRTHENW=1
  279. 10029 IFC2>C1ANDT2>T2ANDPR>CRTHENW=2
  280. 10030 IFC1=C2ANDT1=T2ANDCR=PRTHENW=3
  281. 10031 IFCR>PRANDT1>T2THENW=4
  282. 10032 IFCR>PRANDC1>C2THENW=4
  283. 10033 IFT1>T2ANDC1>C2THENW=4
  284. 10034 IFPR>CRANDT2>T1THENW=5
  285. 10035 IFPR>CRANDT1>C1THENW=5
  286. 10036 IFT2>T1ANDC2>C1THENW=5
  287. 10040 FORZ=1TO6000:NEXT
  288. 10050 ONWGOSUB17000,17005,17010,17020,17030
  289. 10055 FORZ=1TO3000:NEXT
  290. 10060 PRINT"";C$(C)" THREW ";PT;" PUNCHES "
  291. 10065 PRINTPL;" OF WHICH LANDED"
  292. 10070 PRINTCH$" THREW ";CT;" PUNCHES "
  293. 10075 PRINTCL;" OF WHICH LANDED[144]"
  294. 10077 PRINT"POST-FIGHT CONDITION"
  295. 10078 PRINTC$(C);": "CN:PRINTCH$ ": "CC
  296. 10080 END
  297. 11000 PRINT"";C$(C);" IS DOWN!"
  298. 11005 IFY>12ANDF=>5THENPRINT"A TREMENDOUS ";P$(Y)
  299. 11006 FT=INT(TI/60)-4
  300. 11007 PRINT"AT";FT"SECONDS OF ROUND";RD
  301. 11010 IFY=13ORY=15ANDF=>5THENPRINT"A KO FOR THE CHAMP":END
  302. 11015 PRINT"HE'S UP AT THE COUNT OF 8![144]"
  303. 11016 FORZ=1TO3000:NEXT:PRINT"[147]"
  304. 11017 CK=CK+1:IFCK=4ANDY>12THEN13000
  305. 11020 RETURN
  306. 12000 PRINT"THE REFEREE STOPS THE FIGHT"
  307. 12006 FT=INT(TI/60)-4
  308. 12007 PRINT"AT";FT"SECONDS OF ROUND";RD
  309. 12010 PRINT"[156]A TKO FOR ";C$(C):PRINT"[144]":END
  310. 13000 PRINT"THE REFEREE STOPS THE FIGHT![144]"
  311. 13006 FT=INT(TI/60)-4
  312. 13007 PRINT"AT";FT"SECONDS OF ROUND";RD
  313. 13010 PRINT"A TKO FOR ";CH$:END
  314. 14000 PRINT"[147]THE CHALLENGER IS BLEEDING PROFUSELY":CK=CK+1:IFCK=4THEN15000
  315. 14010 PRINT"IF IT DOESN'T STOP IT MAY BE ALL OVER!"
  316. 14020 PRINT"HE HAS TAKEN A WICKED BEATING...[144]":FORZ=1TO2000:NEXT:RETURN
  317. 15000 PRINT"[147]THE REFEREE STOPS THE FIGHT!"
  318. 15006 FT=INT(TI/60)-4
  319. 15007 PRINT"AT";FT"SECONDS OF ROUND";RD
  320. 15010 PRINTC$(C)" IS A BLOODY MESS "
  321. 15020 PRINTCH$" IS STILL CHAMPION![144]":END
  322. 17000 PRINT"";CH$" IS STILL CHAMPION!"
  323. 17002 PRINT"BY UNANIMOUS DECISION![144]":RETURN
  324. 17005 PRINT"";C$(C)" IS THE NEW CHAMPION!"
  325. 17007 PRINT"BY UNANIMOUS DECISION![144]":RETURN
  326. 17010 PRINT"THE DECISION IS A DRAW![144]":RETURN
  327. 17020 PRINT"";CH$" IS STILL CHAMPION!"
  328. 17022 PRINT"BY A SPLIT DECISION![144]":RETURN
  329. 17030 PRINT"";C$(C)" IS THE NEW CHAMPION!"
  330. 17032 PRINT"BY A SPLIT DECISION![144]":RETURN
  331. 20000 SID=54272:REMSOUNDCHIP
  332. 20030 REMCLEAR SID
  333. 20040 FORREG=SIDTOSID+24
  334. 20050 POKEREG,0
  335. 20060 NEXTREG
  336. 20070 REMINITIALIZE SID REGISTERS
  337. 20080 POKESID+5,12
  338. 20090 POKESID+6,9
  339. 20100 POKESID+24,15
  340. 20110 KP=4
  341. 20120 POKESID+1,KP*1.5+KP
  342. 20130 POKESID+15,19+KP
  343. 20140 POKESID+4,21
  344. 20150 FORZ=1TO100
  345. 20160 QUAVER=Z-INT(Z/10)*10
  346. 20170 POKESID,QUAVER*20
  347. 20180 NEXTZ
  348. 20190 POKESID+4,20
  349. 20200 FORREG=SIDTOSID+24
  350. 20210 POKEREG,0
  351. 20220 NEXTREG
  352. 20230 RETURN
  353. 25000 POKE53280,1:POKE53281,1
  354. 25010 PRINT"[144]WANT SOME ADVICE BEFORE LACING UP...Y/N ";AN$
  355. 25015 GETAN$
  356. 25020 IFAN$=""THEN25015
  357. 25025 IFAN$<>"Y"THENRETURN
  358. 25030 PRINT"[147]ONE THING FOR SURE--THE CHAMP IS TOUGH!
  359. 25040 [153]"HE'LL ALWAYS COME OUT PUNCHING
  360. 25042 PRINT"(NOTE THE GREEN ARROW) AND HE'LL ALWAYS
  361. 25045 [153]"FINISH THE ROUND WITH A FLOURISH.
  362. 25050 PRINT"YOU ARE SCORED BY TWO JUDGES AND THE
  363. 25055 [153]"REFEREE. THEY'LL BE LOOKING AT THE
  364. 25060 PRINT"PUNCHES THROWN AND LANDED, AND ALSO
  365. 25065 [153]"YOUR ROUND-BY-ROUND CONDITION.
  366. 25070 PRINT:PRINT"STRATEGY:"
  367. 25075 PRINT"ONLY PUNCH WHEN YOU CAN POSSIBLY EQUAL
  368. 25080 [153]"OR SURPASS THE NUMBER OF PUNCHES THROWN
  369. 25085 PRINT"OR LANDED BY THE CHAMP IN THAT ROUND.
  370. 25090 [153]"IF YOU THROW TOO MANY YOU'LL NEVER GO
  371. 25100 PRINT"THE DISTANCE, IF YOU THROW TOO FEW
  372. 25110 [153]"YOU'LL BE CUT TO RIBBONS!"
  373. 25120 [153]:[153]"STOPPRESS SPACEBAR FOR TIPS"
  374. 25125 [161]AN$
  375. 25127 [139]AN$[179][177][199](32)[167]25125
  376. 25130 [139]AN$[178]""[167]25125
  377. 25135 [153]"LOADTIPS:"
  378. 25140 [153]"YOU CAN BETTER YOUR CHANCES BY OPTING
  379. 25145 PRINT"FOR THE TRAINING PROGRAM.
  380. 25150 [153]"TO REPEAT YOUR PREVIOUS ACTION JUST
  381. 25155 PRINT"PRESS RETURN WITHOUT ENTERING DIGITS.
  382. 25160 [153]"NOTE THE EFFECTS OF DIFFERENT ACTIONS
  383. 25165 PRINT"UPON YOUR CONDITION--PACE YOURSELF TO"
  384. 25170 PRINT"GO THE DISTANCE."
  385. 25175 PRINT"THERE ARE 8 DIFFERENT SKILL LEVELS
  386. 25180 [153]"RANGING FROM A 10-ROUND BOUT WITH THE
  387. 25185 PRINT"NO. 1 CONTENDER, TO A DIFFICULT,
  388. 25190 [153]"(NEARLY IMPOSSIBLE) 15-ROUND EVENT
  389. 25195 PRINT"WITH THE 4TH RANKED CONTENDER."
  390. 25200 PRINT"FINALLY, WATCH OUT FOR THE STRAIGHT
  391. 25210 [153]"RIGHT HAND, IT'S A BEAUT!"
  392. 25215 [153]"LET'S HAVE A GOOD CLEAN FIGHT, AND"
  393. 25220 [153]"MAY THE BEST MAN WIN...GOOD LUCK!"
  394. 25225 [153]:[153]"STOPPRESS SPACEBAR TO BEGIN"
  395. 25230 [161]AN$
  396. 25235 [139]AN$[179][177][199](32)[167]25230
  397. 25240 [139]AN$[178]""[167]25230
  398. 25245 [142]
  399. 30000 [151]SID[170]5,24
  400. 30010 [151]SID[170]24,15
  401. 30020 [151]SID[170]4,16
  402. 30030 [151]SID[170]1,[187](0)[172]40[170]10
  403. 30040 [151]SID[170]4,17
  404. 30050 [129]REG[178]SID[164]SID[170]24
  405. 30055 [151]REG,0
  406. 30057 [130]REG
  407. 30060 [142]
  408. 40000 [151]SID[170]5,24
  409. 40010 [151]SID[170]24,15
  410. 40020 [151]SID[170]4,16
  411. 40030 [151]SID[170]1,[187](0)[172]40[170]10
  412. 40040 [151]SID[170]4,17
  413. 40050 [129]REG[178]SID[164]SID[170]24
  414. 40055 [151]REG,0
  415. 40057 [130]REG
  416. 40060 [142]
  417.